﻿
Public Class Usuario
    Private mcoduser As String
    Private mpswuser As String
    Private mnomuser As String
    Private mdesuser As String
    Private mfchterm As Date
    Private mfchingr As Date
    Private mcodnive As String
    Private mflguser As String
    Private mcodarea As String
    Private mmaiuser As String
    Private mflglock As Byte
    Private mflglgn As Byte


    Public Property coduser() As String
        Get
            Return mcoduser
        End Get
        Set(ByVal value As String)
            mcoduser = value
        End Set
    End Property

    Public Property pswuser() As String
        Get
            Return mpswuser
        End Get
        Set(ByVal value As String)
            mpswuser = value
        End Set
    End Property

    Public Property nomuser() As String
        Get
            Return mnomuser
        End Get
        Set(ByVal value As String)
            mnomuser = value
        End Set
    End Property

    Public Property desuser() As String
        Get
            Return mdesuser
        End Get
        Set(ByVal value As String)
            mdesuser = value
        End Set
    End Property

    Public Property fchterm() As Date
        Get
            Return mfchterm
        End Get
        Set(ByVal value As Date)
            mfchterm = value
        End Set
    End Property

    Public Property codnive() As String
        Get
            Return mcodnive
        End Get
        Set(ByVal value As String)
            mcodnive = value
        End Set
    End Property

    Public Property flguser() As String
        Get
            Return mflguser
        End Get
        Set(ByVal value As String)
            mflguser = value
        End Set
    End Property

    Public Property codarea() As String
        Get
            Return mcodarea
        End Get
        Set(ByVal value As String)
            mcodarea = value
        End Set
    End Property

    Public Property fchingr() As Date
        Get
            Return mfchingr
        End Get
        Set(ByVal value As Date)
            mfchingr = value
        End Set
    End Property

    Public Property maiuser() As String
        Get
            Return mmaiuser
        End Get
        Set(ByVal value As String)
            mmaiuser = value
        End Set
    End Property

    Public Property flgLock() As Byte
        Get
            Return mflglock
        End Get
        Set(value As Byte)
            mflglock = value
        End Set
    End Property

    Public Property flglgn As Byte
        Get
            Return mflglgn
        End Get
        Set(value As Byte)
            mflglgn = value
        End Set
    End Property

End Class
